﻿'Digite o NameSpace: Babok
'Digite o nome da Classe de dominio: Elicitacao

'--TESTE:-----------
'    <TestMethod()> _
'    Public Sub SalvarElicitacao()
'        Dim _Elicitacao As Elicitacao
'        _Elicitacao = New Elicitacao
'
'        _Elicitacao.Salvar()
'
'        Assert.IsTrue(_Elicitacao.Id.HasValue)
'    End Sub
<Serializable()> _
Public Class Elicitacao
    Inherits BaseDominio

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Elicitacao
        Return MyBase.ElicitacaoDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.ElicitacaoDao.Salvar(Me)
    End Sub

#End Region

End Class

